home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Purity / Purity #22 (1994-01-19)(Diesel)(DE)[WB].zip / Purity #22 (1994-01-19)(Diesel)(DE)[WB].adf / Greet / Greet.p < prev    next >
Text File  |  1994-01-17  |  1KB  |  75 lines
  1. Program Gruesse;
  2.  
  3. {$Incl"Libraries/Dos.h","dos.lib"}
  4.  
  5. Const CSI = Chr($9b);
  6.  
  7. Var now   : Datestamp;
  8.     std   : Long;
  9.     Ps    : String;
  10.     Pl    : Integer;
  11.     input : Text;
  12.     Gree  : String[80];
  13.     xx    : p_DateStamp;
  14.  
  15. Begin
  16.  If FromWb Then
  17.   Begin
  18.    Reset(input,"CON:100/70/400/70/Grüße");
  19.    If IOResult=0 Then
  20.     Begin
  21.      output:=input;
  22.      Writeln(CSI,"33;1mGrüße V0.03",CSI,"0m © 1992 by ""Bomber"" Björn Schotte",
  23.      CSI,"0m");
  24.      Writeln;
  25.      Writeln("USAGE: Grüße <Name>");
  26.      Writeln;
  27.      Writeln("<name> : z.B. Björn Schotte ...");
  28.      Delay(150);
  29.      Close(input);
  30.     End;
  31.   End;
  32.  Gree:="";
  33.  Pl:=ParameterLen;
  34.  Ps:=ParameterStr;
  35.  {Ps[Pl+1]:=Chr(0);}
  36.  Ps := Copy(Ps,1,Pl-1);
  37.  If Pl=0 Then
  38.   Begin
  39.    Writeln(CSI,"33;1mGrüße V0.03",CSI,"0m © 1992 by ""Bomber"" Björn Schotte",
  40.    CSI,"0m");
  41.    Writeln;
  42.    Writeln("USAGE: Grüße <Name>");
  43.    Writeln;
  44.    Writeln("<name> : z.B. Björn Schotte ...");
  45.    Halt(0);
  46.   End;
  47.  { Feststellen der Stunden: }
  48.  xx := _Datestamp(^now);
  49.  std:=now.ds_Minute Div 60;
  50.  { Begrüßung gemäß der Tageszeit: }
  51.  If (Std>4) And (Std<=11) Then
  52.  Begin
  53.   Gree:="Guten Morgen";
  54.  End Else If (Std>11) And (Std<=18) Then
  55.  Begin
  56.   Gree:="Guten Tag";
  57.  End Else If (Std>18) And (Std<=22) Then
  58.  Begin
  59.   Gree:="Guten Abend";
  60.  End Else If (Std>22) And (Std<=4) Then
  61.  Begin
  62.   Gree:="Gute Nacht";
  63.  End;
  64.  Write(CHR(27)+"[33;1m");
  65.  Write(Gree);
  66.  Write(", "+Ps+" !");
  67.  WriteLn(CHR(27)+"[0m");
  68. End.
  69.  
  70.  
  71.  
  72.  
  73.  
  74.  
  75.